
# 查找指定目录下，所有指定后缀的文件. 例如查找Download目录下的所有pdf文件，dir=".../Download"
find_all_files_by_type <- function(dir,  suffix) {
  # TODO 判断dir是否可用
  # TODO 判断suffix是否可用
  files <- list.files(dir)
  list_result <- c()
  index <- 0
  for (file_name in files) {
    file_path <- paste0(dir,"/",file_name)
    if (file_test("-f", file_path) && endsWith(file_name, suffix)) { 
      list_result <- c(list_result, file_path)
    }
  }
  return(list_result)
}
# 查找Download目录下的所有pdf文件
print(find_all_files_by_type("/Users/andy/Downloads", "pdf"))